home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / btrieve / xtr401.exe / PATCHXQL.BAT < prev    next >
DOS Batch File  |  1991-06-20  |  3KB  |  133 lines
  1. echo off
  2. CLS
  3. echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
  4. echo     OF THE PRODUCT YOU ARE PATCHING.   PATCHING AN ALREADY PATCHED COPY
  5. echo     MAY CAUSE UNPREDICTABLE ERRORS.
  6. echo  
  7. echo  
  8. ::
  9. IF %1! == !     GOTO PARAM
  10. IF  %1 == XQLP  GOTO START
  11. IF  %1 == XQLPO GOTO START
  12. IF  %1 == XQLPOS2 GOTO OS2
  13. IF  %1 == xqlp  GOTO START
  14. IF  %1 == xqlpo GOTO START
  15. IF  %1 == xqlpos2 GOTO OS2
  16. GOTO PARAM
  17. ::
  18. :START
  19. ::
  20. SET X201ORG=%1.ORG
  21. SET X201FIL=%1.EXE
  22. SET X201PAT=%1PAT.201
  23. SET X201TYP=DOS
  24. IF %1 == XQLU GOTO UTIL
  25. IF %1 == xqlu GOTO UTIL
  26. GOTO PATCH
  27. ::
  28. :OS2
  29. ::
  30. SET X201ORG=XQLP.OS2
  31. SET X201FIL=XQLP.DLL
  32. SET X201PAT=%1.201
  33. SET X201TYP=OS2
  34. GOTO PATCH
  35. ::
  36. :PATCH
  37. IF NOT EXIST PI.EXE GOTO NOPI
  38. IF NOT EXIST %X201PAT% GOTO XERROR
  39. IF NOT EXIST %X201FIL% GOTO EERROR
  40. IF NOT EXIST %X201ORG% REN %X201FIL% %X201ORG%
  41. :PATORG
  42. echo  
  43. echo %X201FIL% FOR %X201TYP% VERSION 201 ** PATCHING .............
  44. echo  
  45. COPY %X201ORG% %X201FIL%
  46. PI %X201FIL% %X201PAT% >NUL
  47. IF ERRORLEVEL == 9 GOTO VERR
  48. IF ERRORLEVEL == 0 GOTO SUCCESS
  49. GOTO UNKNOWN
  50. ::
  51. :NOPI
  52. echo  
  53. echo CANNOT FIND PI.EXE
  54. echo  
  55. echo The Novell Patch Install Utility (PI.EXE) is required to install
  56. echo the patches for this product.  Please copy PI.EXE to the directory
  57. echo you are working in............................................
  58. GOTO END
  59. ::
  60. :XERROR
  61. echo  
  62. echo CANNOT FIND %X201PAT%
  63. GOTO END
  64. ::
  65. :EERROR
  66. IF EXIST %X201ORG% GOTO PATORG
  67. echo  
  68. echo CANNOT FIND %X201FIL%
  69. GOTO END
  70. ::
  71. :VERR
  72. CLS
  73. ECHO ***** BYTE VERIFICATION FAILED *****
  74. ECHO  
  75. ECHO YOU ARE NOT PATCHING THE ORIGINAL %X201FIL%
  76. ECHO  
  77. ECHO PLEASE COPY THE ORIGINAL %X201FIL% TO THE CURRENT
  78. ECHO DIRECTORY AND TRY AGAIN.
  79. COPY %X201ORG% %1.BAT
  80. DEL %X201ORG%
  81. GOTO END
  82. ::
  83. :SUCCESS
  84. ECHO  
  85. ECHO PATCHES FOR %X201FIL% SUCCESSFULLY INSTALLED.......
  86. ECHO  
  87. GOTO FIXED
  88. ::
  89. :UNKNOWN
  90. CLS
  91. ECHO ***** UNKNOWN ERROR *****
  92. ECHO  
  93. ECHO AN UNKNOWN ERROR HAS OCCURRED WHILE PATCHING %X201FIL%
  94. ECHO  
  95. ECHO PLEASE CALL YOUR TECHNICAL SUPPORT REPRESENTATIVE FOR HELP.....
  96. ECHO
  97. GOTO END
  98. ::
  99. :PARAM
  100. echo  
  101. echo THE FORMAT IS:
  102. echo  
  103. echo PATCHXQL [filename]
  104. echo  
  105. echo WHERE [filename] IS:       XQLP
  106. echo                            XQLPO
  107. echo                            XQLPOS2   { XQLP FOR OS2 }
  108. echo  
  109. GOTO END
  110. ::
  111. :FIXED
  112. echo  
  113. echo %X201FIL% FOR %X201TYP% VERSION 201 ** PATCH COMPLETE **
  114. echo  
  115. echo  
  116. echo ***** NOTICE: The %X201ORG% file in your current directory is the
  117. echo               original.  This batch file renames %X201FIL% to %X201ORG%
  118. echo               if it does not find %X201ORG%.  This will allow you to
  119. echo               keep the original on hand without patches applied.
  120. echo               The next time the patches are applied, it looks for
  121. echo               the %X201ORG% file first.  Thus, patches will always be
  122. echo               applied to the unpatched version.
  123. echo  
  124. echo               IT IS YOUR RESPONSIBILITY TO PLACE THE UNPATCHED VERSION
  125. echo               IN THIS DIRECTORY THE FIRST TIME YOU USE THIS BATCH FILE.
  126. echo  
  127. ::
  128. :END
  129. SET X201ORG=
  130. SET X201FIL=
  131. SET X201PAT=
  132. SET X201TYP=
  133.